home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / ERRCOD.DCL < prev    next >
Text File  |  1991-12-01  |  202b  |  9 lines
  1. open /write errcod errcod.dat
  2. error = 0
  3. loop:
  4.         write errcod error + "  " + f$message(error)
  5.         error = error + 1
  6.         if error .LT. 36 then goto loop
  7. close errcod
  8. type errcod.dat
  9.